home *** CD-ROM | disk | FTP | other *** search
/ PC-SIG: World of Games / PC-SIG World of Games (CDRM1080710) (1993).iso / 262 / AQUIT.ASC < prev    next >
Text File  |  1984-02-18  |  2KB  |  36 lines
  1. 10000 '*************************************************************
  2. 10002 '*****    PC-GOLF    THE GOLFER's PROGRAM     PC-GOLF    *****
  3. 10004 '*****    Version 1.3  (C) 1982,1983,1984 Ed Chandler    *****
  4. 10006 '*************************************************************
  5. 10016 '+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
  6. 10018 '     6. QUIT. GOING TO THE 19th HOLE
  7. 10020 '+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
  8. 10021 CLS:PRINT MNU6$:PRINT:CLOSE
  9. 10030 IF ROS=0 THEN 10040
  10. 10034 DEF SEG=&H40:I%=PEEK(&H17):I%=I% AND NOT 64:POKE &H17,I% 'caps lock off
  11. 10036 DEF SEG=&H40:I%=PEEK(&H17):I%=I% AND NOT 32:POKE &H17,I% ' num lock off
  12. 10040 PRINT"This round with PC-GOLF is over.  The players"
  13. 10050 PRINT"roster, course list and data bank are A.O.K."
  14. 10070 PRINT"Now is the right time to make a backup of your"
  15. 10090 PRINT"PC-GOLF diskette.":PRINT:COLOR 0,15,0
  16. 10100 PRINT" PC-GOLF * USER SUPPORTED SOFTWARE * PC-GOLF ":PRINT:COLOR 7,0,0
  17. 10200 PRINT"If you are using PC-GOLF and find it to be of value, your"
  18. 10210 PRINT"contribution ($35.00 is suggested) will be appreciated.
  19. 10220 PRINT:PRINT SPC(15)"Ed Chandler"
  20. 10230 PRINT SPC(15)"453 Dolphin Street"
  21. 10240 PRINT SPC(15)"Melbourne Beach"
  22. 10250 PRINT SPC(15)"Florida   32951":PRINT
  23. 10260 PRINT"Regardless, whether or not you make a contribution, you are"
  24. 10270 PRINT"encouraged to copy and share this program with other golfers."
  25. 10280 PRINT:COLOR 0,15,0
  26. 10290 PRINT"  ENTER to return to DOS. You're Away! ":COLOR 7,0,0
  27. 10310 KB$=INKEY$:IF KB$=CHR$(13) THEN SYSTEM ELSE 10310
  28. 14000 '+++++     grunt work
  29. 14010 DELETE 490-9999
  30. 14020 SAVE"b:quit.asc",A
  31. 14030 RUN"b:main.bas"
  32. 15000 'for chain delete
  33. 
  34. 14000 '+++++     grunt work
  35. 14010 DELETE 490-9999
  36. 14020 SAVE"b:qu